home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / assert.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  14.5 KB  |  639 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "assert.h"
  4. init_assert(){do_init(VV);}
  5. /*    macro definition for CHECK-TYPE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     if(endp(V1))invalid_macro_call();
  18.     base[3]= (V1->c.c_car);
  19.     V1=V1->c.c_cdr;
  20.     if(endp(V1)){
  21.     base[4]= Cnil;
  22.     base[5]= Cnil;
  23.     } else {
  24.     base[4]= (V1->c.c_car);
  25.     base[5]= Ct;
  26.     V1=V1->c.c_cdr;}
  27.     if(!endp(V1))invalid_macro_call();}
  28.     V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil);
  29.     V3= list(2,VV[3],base[2]);
  30.     if((base[5])==Cnil){
  31.     goto T4;}
  32.     V4= base[4];
  33.     goto T2;
  34. T4:;
  35.     V4= list(2,VV[3],base[3]);
  36. T2:;
  37.     V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4);
  38.     V6= (*(LnkLI53))(base[2]);
  39.     base[6]= list(6,VV[0],VV[1],/* INLINE-ARGS */V2,/* INLINE-ARGS */V5,/* INLINE-ARGS */V6,VV[7]);
  40.     vs_top=(vs_base=base+6)+1;
  41.     return;
  42. }
  43. /*    macro definition for ASSERT    */
  44.  
  45. static L2()
  46. {register object *base=vs_base;
  47.     register object *sup=base+VM2; VC2
  48.     vs_reserve(VM2);
  49.     check_arg(2);
  50.     vs_top=sup;
  51.     {object V7=base[0]->c.c_cdr;
  52.     if(endp(V7))invalid_macro_call();
  53.     base[2]= (V7->c.c_car);
  54.     V7=V7->c.c_cdr;
  55.     if(endp(V7)){
  56.     base[3]= Cnil;
  57.     } else {
  58.     base[3]= (V7->c.c_car);
  59.     V7=V7->c.c_cdr;}
  60.     if(endp(V7)){
  61.     base[4]= Cnil;
  62.     } else {
  63.     base[4]= (V7->c.c_car);
  64.     V7=V7->c.c_cdr;}
  65.     base[5]= V7;}
  66.     V8= list(2,base[2],Cnil);
  67.     if((base[4])==Cnil){
  68.     goto T10;}
  69.     V9= listA(4,VV[4],VV[9],base[4],base[5]);
  70.     goto T8;
  71. T10:;
  72.     V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2]));
  73. T8:;
  74.     {object V11;
  75.     object V12= base[3];
  76.     if(endp(V12)){
  77.     V10= Cnil;
  78.     goto T12;}
  79.     base[6]=V11=MMcons(Cnil,Cnil);
  80. T13:;
  81.     (V11->c.c_car)= (*(LnkLI53))((V12->c.c_car));
  82.     if(endp(V12=MMcdr(V12))){
  83.     V10= base[6];
  84.     goto T12;}
  85.     V11=MMcdr(V11)=MMcons(Cnil,Cnil);
  86.     goto T13;}
  87. T12:;
  88.     base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12]));
  89.     vs_top=(vs_base=base+6)+1;
  90.     return;
  91. }
  92. /*    local entry for function ASK-FOR-FORM    */
  93.  
  94. static object LI3(V14)
  95.  
  96. object V14;
  97. {     VMB3 VMS3 VMV3
  98. TTL:;
  99.     V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14)));
  100.     {object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19]));
  101.     VMR3(V16)}
  102. }
  103. /*    macro definition for ECASE    */
  104.  
  105. static L4()
  106. {register object *base=vs_base;
  107.     register object *sup=base+VM4; VC4
  108.     vs_reserve(VM4);
  109.     check_arg(2);
  110.     vs_top=sup;
  111.     {object V17=base[0]->c.c_cdr;
  112.     if(endp(V17))invalid_macro_call();
  113.     base[2]= (V17->c.c_car);
  114.     V17=V17->c.c_cdr;
  115.     base[3]= V17;
  116.     vs_base=vs_top;
  117.     Lgensym();
  118.     vs_top=sup;
  119.     base[4]= vs_base[0];}
  120.     {register object V18;
  121.     register object V19;
  122.     V18= reverse(base[3]);
  123.     V20= list(2,VV[3],base[2]);
  124.     {object V22;
  125.     object V23= base[3];
  126.     if(endp(V23)){
  127.     V21= Cnil;
  128.     goto T18;}
  129.     base[5]=V22=MMcons(Cnil,Cnil);
  130. T19:;
  131.     {object V25= car((V23->c.c_car));
  132.     if(!(type_of(V25)==t_cons||(V25)==Cnil)){
  133.     goto T22;}}
  134.     {object V26;
  135.     object V27= car((V23->c.c_car));
  136.     if(endp(V27)){
  137.     (V22->c.c_cdr)= Cnil;
  138.     goto T20;}
  139.     base[6]=V26=MMcons(Cnil,Cnil);
  140. T24:;
  141.     (V26->c.c_car)= list(2,VV[3],(V27->c.c_car));
  142.     if(endp(V27=MMcdr(V27))){
  143.     (V22->c.c_cdr)= base[6];
  144.     goto T20;}
  145.     V26=MMcdr(V26)=MMcons(Cnil,Cnil);
  146.     goto T24;}
  147. T22:;
  148.     V29= list(2,VV[3],car((V23->c.c_car)));
  149.     (V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);
  150. T20:;
  151.     while(!endp(MMcdr(V22)))V22=MMcdr(V22);
  152.     if(endp(V23=MMcdr(V23))){
  153.     base[5]=base[5]->c.c_cdr;
  154.     V21= base[5];
  155.     goto T18;}
  156.     goto T19;}
  157. T18:;
  158.     V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));
  159. T27:;
  160.     if(!(endp((V18)))){
  161.     goto T28;}
  162.     V30= list(2,base[4],base[2]);
  163.     base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));
  164.     vs_top=(vs_base=base+5)+1;
  165.     return;
  166. T28:;
  167.     if((caar((V18)))==Cnil){
  168.     goto T32;}
  169.     {object V32= caar((V18));
  170.     if(!(type_of(V32)==t_cons||(V32)==Cnil)){
  171.     goto T38;}}
  172.     V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18))));
  173.     goto T36;
  174. T38:;
  175.     V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18))));
  176. T36:;
  177.     V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19));
  178. T32:;
  179.     V18= cdr((V18));
  180.     goto T27;}
  181. }
  182. /*    macro definition for CCASE    */
  183.  
  184. static L5()
  185. {register object *base=vs_base;
  186.     register object *sup=base+VM5; VC5
  187.     vs_reserve(VM5);
  188.     check_arg(2);
  189.     vs_top=sup;
  190.     {object V33=base[0]->c.c_cdr;
  191.     if(endp(V33))invalid_macro_call();
  192.     base[2]= (V33->c.c_car);
  193.     V33=V33->c.c_cdr;
  194.     base[3]= V33;
  195.     vs_base=vs_top;
  196.     Lgensym();
  197.     vs_top=sup;
  198.     base[4]= vs_base[0];}
  199.     V34= list(2,base[4],base[2]);
  200.     V35= make_cons(/* INLINE-ARGS */V34,Cnil);
  201.     {object V37;
  202.     object V38= base[3];
  203.     if(endp(V38)){
  204.     V36= Cnil;
  205.     goto T44;}
  206.     base[5]=V37=MMcons(Cnil,Cnil);
  207. T45:;
  208.     {register object V39;
  209.     V39= (V38->c.c_car);
  210.     {object V41= car((V39));
  211.     if(!(type_of(V41)==t_cons||(V41)==Cnil)){
  212.     goto T49;}}
  213.     V40= list(3,VV[25],base[4],list(2,VV[3],car((V39))));
  214.     goto T47;
  215. T49:;
  216.     V40= list(3,VV[26],base[4],list(2,VV[3],car((V39))));
  217. T47:;
  218.     (V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}
  219.     if(endp(V38=MMcdr(V38))){
  220.     V36= base[5];
  221.     goto T44;}
  222.     V37=MMcdr(V37)=MMcons(Cnil,Cnil);
  223.     goto T45;}
  224. T44:;
  225.     V42= list(2,VV[3],base[2]);
  226.     {object V44;
  227.     object V45= base[3];
  228.     if(endp(V45)){
  229.     V43= Cnil;
  230.     goto T51;}
  231.     base[5]=V44=MMcons(Cnil,Cnil);
  232. T52:;
  233.     {object V47= car((V45->c.c_car));
  234.     if(!(type_of(V47)==t_cons||(V47)==Cnil)){
  235.     goto T55;}}
  236.     {object V48;
  237.     object V49= car((V45->c.c_car));
  238.     if(endp(V49)){
  239.     (V44->c.c_cdr)= Cnil;
  240.     goto T53;}
  241.     base[6]=V48=MMcons(Cnil,Cnil);
  242. T57:;
  243.     (V48->c.c_car)= list(2,VV[3],(V49->c.c_car));
  244.     if(endp(V49=MMcdr(V49))){
  245.     (V44->c.c_cdr)= base[6];
  246.     goto T53;}
  247.     V48=MMcdr(V48)=MMcons(Cnil,Cnil);
  248.     goto T57;}
  249. T55:;
  250.     V51= list(2,VV[3],car((V45->c.c_car)));
  251.     (V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);
  252. T53:;
  253.     while(!endp(MMcdr(V44)))V44=MMcdr(V44);
  254.     if(endp(V45=MMcdr(V45))){
  255.     base[5]=base[5]->c.c_cdr;
  256.     V43= base[5];
  257.     goto T51;}
  258.     goto T52;}
  259. T51:;
  260.     V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43);
  261.     V53= (*(LnkLI53))(base[2]);
  262.     V54= list(5,VV[20],VV[30],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,VV[33]);
  263.     V55= make_cons(/* INLINE-ARGS */V54,Cnil);
  264.     base[5]= list(2,VV[27],listA(3,VV[20],/* INLINE-ARGS */V35,append(V36,/* INLINE-ARGS */V55)));
  265.     vs_top=(vs_base=base+5)+1;
  266.     return;
  267. }
  268. /*    macro definition for TYPECASE    */
  269.  
  270. static L6()
  271. {register object *base=vs_base;
  272.     register object *sup=base+VM6; VC6
  273.     vs_reserve(VM6);
  274.     check_arg(2);
  275.     vs_top=sup;
  276.     {object V56=base[0]->c.c_cdr;
  277.     if(endp(V56))invalid_macro_call();
  278.     base[2]= (V56->c.c_car);
  279.     V56=V56->c.c_cdr;
  280.     base[3]= V56;}
  281.     {register object V57;
  282.     register object V58;
  283.     register object V59;
  284.     V57= reverse(base[3]);
  285.     vs_base=vs_top;
  286.     Lgensym();
  287.     vs_top=sup;
  288.     V59= vs_base[0];
  289.     V58= Cnil;
  290. T62:;
  291.     if(!(endp((V57)))){
  292.     goto T63;}
  293.     V60= list(2,(V59),base[2]);
  294.     base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));
  295.     vs_top=(vs_base=base+4)+1;
  296.     return;
  297. T63:;
  298.     if((caar((V57)))==(Ct)){
  299.     goto T68;}
  300.     if(!((caar((V57)))==(VV[34]))){
  301.     goto T69;}
  302. T68:;
  303.     V58= make_cons(VV[13],cdar((V57)));
  304.     goto T67;
  305. T69:;
  306.     V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57))));
  307.     V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58));
  308. T67:;
  309.     V57= cdr((V57));
  310.     goto T62;}
  311. }
  312. /*    macro definition for ETYPECASE    */
  313.  
  314. static L7()
  315. {register object *base=vs_base;
  316.     register object *sup=base+VM7; VC7
  317.     vs_reserve(VM7);
  318.     check_arg(2);
  319.     vs_top=sup;
  320.     {object V62=base[0]->c.c_cdr;
  321.     if(endp(V62))invalid_macro_call();
  322.     base[2]= (V62->c.c_car);
  323.     V62=V62->c.c_cdr;
  324.     base[3]= V62;
  325.     vs_base=vs_top;
  326.     Lgensym();
  327.     vs_top=sup;
  328.     base[4]= vs_base[0];}
  329.     {register object V63;
  330.     register object V64;
  331.     V63= reverse(base[3]);
  332.     V65= list(2,VV[3],base[2]);
  333.     {object V67;
  334.     object V68= base[3];
  335.     if(endp(V68)){
  336.     V66= Cnil;
  337.     goto T81;}
  338.     base[5]=V67=MMcons(Cnil,Cnil);
  339. T82:;
  340.     (V67->c.c_car)= car((V68->c.c_car));
  341.     if(endp(V68=MMcdr(V68))){
  342.     V66= base[5];
  343.     goto T81;}
  344.     V67=MMcdr(V67)=MMcons(Cnil,Cnil);
  345.     goto T82;}
  346. T81:;
  347.     V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));
  348. T85:;
  349.     if(!(endp((V63)))){
  350.     goto T86;}
  351.     V70= list(2,base[4],base[2]);
  352.     base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));
  353.     vs_top=(vs_base=base+5)+1;
  354.     return;
  355. T86:;
  356.     V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63))));
  357.     V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64));
  358.     V63= cdr((V63));
  359.     goto T85;}
  360. }
  361. /*    macro definition for CTYPECASE    */
  362.  
  363. static L8()
  364. {register object *base=vs_base;
  365.     register object *sup=base+VM8; VC8
  366.     vs_reserve(VM8);
  367.     check_arg(2);
  368.     vs_top=sup;
  369.     {object V72=base[0]->c.c_cdr;
  370.     if(endp(V72))invalid_macro_call();
  371.     base[2]= (V72->c.c_car);
  372.     V72=V72->c.c_cdr;
  373.     base[3]= V72;
  374.     vs_base=vs_top;
  375.     Lgensym();
  376.     vs_top=sup;
  377.     base[4]= vs_base[0];}
  378.     V73= list(2,base[4],base[2]);
  379.     V74= make_cons(/* INLINE-ARGS */V73,Cnil);
  380.     {object V76;
  381.     object V77= base[3];
  382.     if(endp(V77)){
  383.     V75= Cnil;
  384.     goto T96;}
  385.     base[5]=V76=MMcons(Cnil,Cnil);
  386. T97:;
  387.     V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car))));
  388.     (V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car)))));
  389.     if(endp(V77=MMcdr(V77))){
  390.     V75= base[5];
  391.     goto T96;}
  392.     V76=MMcdr(V76)=MMcons(Cnil,Cnil);
  393.     goto T97;}
  394. T96:;
  395.     V80= list(2,VV[3],base[2]);
  396.     {object V82;
  397.     object V83= base[3];
  398.     if(endp(V83)){
  399.     V81= Cnil;
  400.     goto T99;}
  401.     base[5]=V82=MMcons(Cnil,Cnil);
  402. T100:;
  403.     (V82->c.c_car)= car((V83->c.c_car));
  404.     if(endp(V83=MMcdr(V83))){
  405.     V81= base[5];
  406.     goto T99;}
  407.     V82=MMcdr(V82)=MMcons(Cnil,Cnil);
  408.     goto T100;}
  409. T99:;
  410.     V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81)));
  411.     V86= make_cons(/* INLINE-ARGS */V85,Cnil);
  412.     V87= listA(3,VV[20],/* INLINE-ARGS */V74,append(V75,/* INLINE-ARGS */V86));
  413.     V88= (*(LnkLI53))(base[2]);
  414.     base[5]= list(4,VV[27],/* INLINE-ARGS */V87,/* INLINE-ARGS */V88,VV[37]);
  415.     vs_top=(vs_base=base+5)+1;
  416.     return;
  417. }
  418. /*    local entry for function TYPECASE-ERROR-STRING    */
  419.  
  420. static object LI9(V92,V93,V94)
  421.  
  422. object V92;object V93;register object V94;
  423. {     VMB9 VMS9 VMV9
  424. TTL:;
  425.     {register object V95;
  426.     register object V96;
  427.     register object V97;
  428.     V95= Cnil;
  429.     V96= Cnil;
  430.     V97= Cnil;
  431. T107:;
  432.     if(!(endp((V94)))){
  433.     goto T108;}
  434.     goto T105;
  435. T108:;
  436.     if(!(type_of(car((V94)))==t_symbol)){
  437.     goto T114;}
  438.     V98= make_cons(car((V94)),Cnil);
  439.     V95= make_cons(/* INLINE-ARGS */V98,(V95));
  440.     {register object V99;
  441.     V99= car((V94));
  442.     V94= cdr((V94));
  443.     goto T112;}
  444. T114:;
  445.     {object V100= caar((V94));
  446.     if((V100!= VV[54]))goto T121;
  447.     V94= append(cdar((V94)),cdr((V94)));
  448.     goto T112;
  449. T121:;
  450.     if((V100!= VV[25]))goto T123;
  451.     {
  452.     object V101= cdar((V94));
  453.     if(endp(V101)){
  454.     goto T124;}
  455. T125:;
  456.     {register object V102;
  457.     V102= (V101->c.c_car);
  458.     V103= list(2,VV[25],(V102));
  459.     V95= make_cons(/* INLINE-ARGS */V103,(V95));}
  460.     if(endp(V101=MMcdr(V101))){
  461.     (void)(cdar((V94)));
  462.     goto T124;}
  463.     goto T125;}
  464. T124:;
  465.     {register object V104;
  466.     V104= car((V94));
  467.     V94= cdr((V94));
  468.     goto T112;}
  469. T123:;
  470.     if((V100!= VV[55]))goto T131;
  471.     V96= make_cons(cadar((V94)),(V96));
  472.     {register object V105;
  473.     V105= car((V94));
  474.     V94= cdr((V94));
  475.     goto T112;}
  476. T131:;
  477.     V95= make_cons(car((V94)),(V95));
  478.     {register object V106;
  479.     V106= car((V94));
  480.     V94= cdr((V94));}}
  481. T112:;
  482.     goto T107;
  483. T105:;
  484. T146:;
  485.     if(!(endp((V96)))){
  486.     goto T147;}
  487.     goto T144;
  488. T147:;
  489.     if(!(type_of(car((V96)))==t_symbol)){
  490.     goto T153;}
  491.     V107= make_cons(car((V96)),Cnil);
  492.     V97= make_cons(/* INLINE-ARGS */V107,(V97));
  493.     {register object V108;
  494.     V108= car((V96));
  495.     V96= cdr((V96));
  496.     goto T151;}
  497. T153:;
  498.     if(!((caar((V96)))==(VV[38]))){
  499.     goto T161;}
  500.     V96= append(cdar((V96)),cdr((V96)));
  501.     goto T151;
  502. T161:;
  503.     V97= make_cons(car((V96)),(V97));
  504.     {register object V109;
  505.     V109= car((V96));
  506.     V96= cdr((V96));}
  507. T151:;
  508.     goto T146;
  509. T144:;
  510.     base[0]= Cnil;
  511.     base[1]= VV[39];
  512.     base[2]= (V92);
  513.     base[3]= (V93);
  514.     base[4]= VV[40];
  515.     {object V110;
  516.     object V111= (V97);
  517.     if(endp(V111)){
  518.     base[5]= Cnil;
  519.     goto T176;}
  520.     base[6]=V110=MMcons(Cnil,Cnil);
  521. T177:;
  522.     (V110->c.c_cdr)= (*(LnkLI56))((V111->c.c_car));
  523.     while(!endp(MMcdr(V110)))V110=MMcdr(V110);
  524.     if(endp(V111=MMcdr(V111))){
  525.     base[6]=base[6]->c.c_cdr;
  526.     base[5]= base[6];
  527.     goto T176;}
  528.     goto T177;}
  529. T176:;
  530.     base[6]= VV[41];
  531.     V112 = make_fixnum(length((V95)));
  532.     V116= reverse((V95));
  533.     {object V114;
  534.     object V115= /* INLINE-ARGS */V116;
  535.     if(endp(V115)){
  536.     V113= Cnil;
  537.     goto T181;}
  538.     base[8]=V114=MMcons(Cnil,Cnil);
  539. T182:;
  540.     (V114->c.c_cdr)= (*(LnkLI56))((V115->c.c_car));
  541.     while(!endp(MMcdr(V114)))V114=MMcdr(V114);
  542.     if(endp(V115=MMcdr(V115))){
  543.     base[8]=base[8]->c.c_cdr;
  544.     V113= base[8];
  545.     goto T181;}
  546.     goto T182;}
  547. T181:;
  548.     base[7]= listA(3,(V97),V112,V113);
  549.     vs_top=(vs_base=base+0)+8;
  550.     Lformat();
  551.     vs_top=sup;
  552.     {object V117 = vs_base[0];
  553.     VMR9(V117)}}
  554. }
  555. /*    local entry for function TYPECASE-ERROR-STRINGS    */
  556.  
  557. static object LI10(V119)
  558.  
  559. register object V119;
  560. {     VMB10 VMS10 VMV10
  561. TTL:;
  562.     if(!((car((V119)))==(VV[25]))){
  563.     goto T185;}switch(length(cdr((V119)))){
  564.     case 0:
  565. T188:;
  566.     {object V120 = VV[42];
  567.     VMR10(V120)}
  568.     case 1:
  569. T189:;
  570.     {object V121 = list(2,VV[43],make_cons(cadr((V119)),Cnil));
  571.     VMR10(V121)}
  572.     case 2:
  573. T190:;
  574.     {object V122 = list(2,VV[44],cdr((V119)));
  575.     VMR10(V122)}
  576.     default:
  577. T191:;
  578.     {object V123 = list(2,VV[45],make_cons(cdr((V119)),Cnil));
  579.     VMR10(V123)}
  580.     {object V124 = Cnil;
  581.     VMR10(V124)}}
  582.     {object V125 = Cnil;
  583.     VMR10(V125)}
  584. T185:;
  585.     if(!((car((V119)))==(VV[46]))){
  586.     goto T194;}
  587.     {object V126 = list(2,VV[47],cdr((V119)));
  588.     VMR10(V126)}
  589. T194:;
  590.     if(endp(cdr((V119)))){
  591.     goto T196;}
  592.     if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V119)))))!=Cnil){
  593.     goto T197;}
  594. T196:;
  595.     {object V127;
  596.     {register object x= car((V119)),V128= VV[49];
  597.     while(!endp(V128))
  598.     if(type_of(V128->c.c_car)==t_cons &&eql(x,V128->c.c_car->c.c_car)){
  599.     V127= (V128->c.c_car);
  600.     goto T201;
  601.     }else V128=V128->c.c_cdr;
  602.     V127= Cnil;}
  603. T201:;
  604.     if(((V127))==Cnil){
  605.     goto T203;}
  606.     {object V129 = list(2,cadr((V127)),Cnil);
  607.     VMR10(V129)}
  608. T203:;
  609.     V130= (*(LnkLI58))(car((V119)));
  610.     {object V131 = list(2,VV[50],list(2,/* INLINE-ARGS */V130,car((V119))));
  611.     VMR10(V131)}}
  612. T197:;
  613.     V132= (*(LnkLI58))(car((V119)));
  614.     {object V133 = list(2,VV[51],list(2,/* INLINE-ARGS */V132,(V119)));
  615.     VMR10(V133)}
  616. }
  617. /*    local entry for function BOIN-P    */
  618.  
  619. static object LI11(V135)
  620.  
  621. object V135;
  622. {     VMB11 VMS11 VMV11
  623. TTL:;
  624.     V137= symbol_name((V135));
  625.     V138= elt(/* INLINE-ARGS */V137,0);
  626.     {register object x= /* INLINE-ARGS */V138,V136= VV[52];
  627.     while(!endp(V136))
  628.     if(eql(x,V136->c.c_car)){
  629.     {object V139 = V136;
  630.     VMR11(V139)}
  631.     }else V136=V136->c.c_cdr;
  632.     {object V140 = Cnil;
  633.     VMR11(V140)}}
  634. }
  635. static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BOIN-P */
  636. static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],&LnkLI57,ap);} /* REMOVE */
  637. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* TYPECASE-ERROR-STRINGS */
  638. static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ASK-FOR-FORM */
  639.